home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / DOpus / DOpus5-Arexx / DMS.dopus5 < prev    next >
Encoding:
Text File  |  1998-04-10  |  2.1 KB  |  89 lines
  1. /* Script Arexx pour la creation des archives DMS avec Dopus 5
  2.    Comprenant des boutons indiquants le lecteur source et
  3.    une chaine pour le nom de l'archive proprement dite ...   
  4.    (C)1996 Raistlin 
  5.    Version 1.2
  6.    Mardi 24 Decembre 1996
  7.  
  8.     Usage : DOpus5:ARexx/DMS.dopus5 {Qp} {s}
  9.            No File Quote
  10.            Rescan Source
  11.  
  12. */
  13.  
  14. parse arg portname path .
  15.  
  16. if portname='' then
  17.    portname='DOPUS.1'
  18. address value portname
  19.  
  20. name =''
  21. lf='0a'x  /* ascii code for linefeed */
  22.  
  23. options results
  24.  
  25. address DOPUS.1
  26.  
  27. do while (name = ''|name = 'RESULT'|name = '1')
  28.     Dopus GetString '"Nom archive ?" 40 "" OK|CANCEL'
  29.     name=result
  30.     if rc=0 && ~(name = ''|name = 'RESULT'|name = '1')  then exit
  31. end
  32.  
  33. if ~show('l','rexxsupport.library') then
  34.    call addlib('rexxsupport.library',0,-30)  /* needed for showlist() and delete() */
  35.  
  36. /* montre seulement les device accesibles */
  37.  
  38. src= ''
  39. bouttons = ''
  40. n=0
  41.  
  42. check='DF0 DF1 DF2 DF4 RAD'
  43. do while check~=''
  44.    parse var check source check
  45.    if showlist('h',source) then do
  46.      n=n+1
  47.      src.n = source
  48.      bouttons = bouttons||source':|'
  49.      end
  50.    end
  51.  
  52. tot=1
  53. ended=0
  54.  
  55. do while ended = 0
  56.    Dopus Request '"Combien de disquettes'lf'pour 'name' ?" 'tot'|-|+|_CANCEL'
  57.    if rc=0 then exit
  58.    if rc=2 then tot=tot-1
  59.    if rc=1 then ended=1
  60.    if rc=3 then tot=tot+1
  61.    if tot<1 then tot=1
  62.    end       
  63.  
  64. num=1
  65.  
  66. if tot=1 then do
  67.   DOPUS Request '"Choississez le Lecteur source' lf 'Backup en cours : 'name lf'Pret pour l ecriture de 'name'.DMS ..."' bouttons'_Cancel'
  68.   devname=src.rc
  69.   if rc=0 then exit
  70.   address command "DMS READ" path||name "from " devname':'
  71.   end
  72. else
  73.  
  74. do while num<tot+1
  75.  
  76.   DOPUS Request '"Choississez le Lecteur source' lf 'Backup en cours : 'name lf'Disquette 'num'/'tot lf' Pret pour l ecriture de 'name'('num'-'tot').DMS ..."' bouttons'_Cancel'
  77.   devname=src.rc
  78.   if rc=0 then exit
  79.   address command "DMS READ" path||name'('num'-'tot')' "from " devname':'
  80.   num=num+1
  81.   end
  82.  
  83. if tot=1 then do
  84.    dopus request '"Backup terminé'lf'Elrond is the best !" Super !'
  85.    end
  86. else do
  87.    dopus request '"Backup terminé'lf tot' disquettes ecrites'lf'Elrond is the best !" Super !'
  88.    end
  89.